#    This file is part of robo-ircbot.
#
#    robo-ircbot is free software: you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation, either version 3 of the License, or
#    (at your option) any later version.
#
#    robo-ircbot is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with robo-ircbot.  If not, see <http://www.gnu.org/licenses/>.

package App::Modular::Module::Pastebin;
use strict;
use warnings;
use base qw(App::Modular::Module);

print ":: Pastebin module loaded.\n";

# Events you would like to receive.
# (all scripts need this method)
sub events { return "LISTENER" }

sub help {
        return (
                "Listens for pastes entered into the NXC pastebin."
        );
}

# LISTENER events.
sub event_listener
{
        shift;
        my ($robo, $cfg, $sock, $mod, $data) = @_;

        if ($mod eq 'Pastebin' && $sock && $data) {
                # Strip \r and \n characters,
                $data =~ s/[\r\n]//g;

                my @info = split(/\|/, $data);
                print $sock "PRIVMSG #nxc :\002pb\002: ".$info[0].
                            " (".$info[1].") pasted \"".$info[2]."\" - ".$info[3]."\r\n";
        }
}

1;
